﻿Public Class FormTache

    Private Sub ButtonOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOk.Click
        If Me.TextBoxTitre.Text = "" Then
            MsgBox("Le titre de l'activité ne peut être vide")
            Exit Sub
        End If
    End Sub

    Private Sub CheckBoxCompletee_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxCompletee.CheckedChanged
        If Me.CheckBoxCompletee.Checked Then
            Me.LabelDateCompletee.Text = Now().ToShortDateString
        Else
            Me.LabelDateCompletee.Text = "<nil>"
        End If
    End Sub
End Class